home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / HEADER.f < prev    next >
Encoding:
Text File  |  1992-07-31  |  794 b   |  23 lines
  1.       SUBROUTINE HEADER 
  2. *-----------------------------------------------------------------------
  3. *   
  4. *--- prints print output header 
  5. *   
  6. *-----------------------------------------------------------------------
  7.       include 'PARAM.h' 
  8.       write(mpunit,10000) versio
  9. 10000 format('1 ',78('*'),/,
  10.      &       '  *',76(' '),'*',/,   
  11.      &       '  *',30x,'F L O P P Y',35x,'*',/, 
  12.      &       '  *',76(' '),'*',/,   
  13.      &       '  *',76(' '),'*',/,   
  14.      &       '  *',12x, 
  15.      &       'Fortran Coding Convention Checker and Code Tidier',   
  16.      &       15x,'*',/  
  17.      &       '  *',76(' '),'*',/,   
  18.      &       '  *',30x,'Version ',f3.1,35x,'*',/,   
  19.      &       '  *',76(' '),'*',/,   
  20.      &       '  * (c) CERN, 1990',61x,'*',/,
  21.      &       '  ',78('*'))  
  22.       END   
  23.